PROCEDURES
PORTS PRIVATE SIMPLE STRING PROCEDURE
ALFIZE (STRING FILENAME, LEFTRIGHT) ;
ALGOL PUBLIC SIMPLE PROCEDURE
ALGOL! ;
IFK NOT TENEX THENK
USERS PUBLIC SIMPLE PROCEDURE
ANYSTART (STRING COMDLINE) ;
ENDC
FILLR PUBLIC SIMPLE PROCEDURE
APPEND (STRING CHARS) ;
TEMPL PUBLIC RECURSIVE PROCEDURE
APPLYTOARGUMENTS (BOOLEAN DO!IT, PROCALL) ;
AREAS PUBLIC SIMPLE PROCEDURE
AREAS! ;
VARBL PUBLIC RECURSIVE BOOLEAN PROCEDURE
ASSIGNMENT ;
AREAS PUBLIC RECURSIVE PROCEDURE
ASSUREAREA ;
RESPS PUBLIC RECURSIVE BOOLEAN PROCEDURE
ATLEAD (INTEGER LEADSPACES) ;
BLOCK PUBLIC RECURSIVE PROCEDURE
BEGINBLOCK (BOOLEAN MIDPGPH; INTEGER ECASE ; STRING NAME) ;
DATUM PUBLIC INTEGER PROCEDURE
BIGGER (INTEGER PTR,HM) ;
DATUM PUBLIC INTEGER PROCEDURE
BIGGR2 (INTEGER PTR,HM) ;
TOKEN PUBLIC SIMPLE PROCEDURE
BIND (INTEGER LOC, NEWIX) ;
BLOCK PUBLIC SIMPLE PROCEDURE
BLOCK! ;
QUADS PUBLIC RECURSIVE PROCEDURE
BOUND (INTEGER KIND) ;
AREAS PUBLIC PROCEDURE
BURPAREAS (BOOLEAN VERBOSE) ;
SORCE PUBLIC SIMPLE PROCEDURE
BURPINPUT (BOOLEAN VERBOSE) ;
TOKEN PUBLIC SIMPLE STRING PROCEDURE
CAPITALIZE (STRING MIXEDCASE) ;
CNTRS PRIVATE SIMPLE INTEGER PROCEDURE
CHRSALF (INTEGER INT, ALFABET) ;
ALGOL PUBLIC RECURSIVE BOOLEAN PROCEDURE
CHUNK (BOOLEAN VALID) ;
AREAS PUBLIC RECURSIVE PROCEDURE
CLOSEAREA (INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;
CNTRS PUBLIC RECURSIVE PROCEDURE
CLOSECOUNTER (INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;
RESPS PUBLIC RECURSIVE PROCEDURE
CLOSET (INTEGER ITSIX; BOOLEAN CLOSEIT, DISDECLAREIT) ;
CNTRS PUBLIC SIMPLE PROCEDURE
CNTRS! ;
COLMS PUBLIC SIMPLE INTEGER PROCEDURE
COLSLEFT ;
COMMD PUBLIC RECURSIVE BOOLEAN PROCEDURE
COMMAND ;
COMMD PUBLIC SIMPLE PROCEDURE
COMMD! ;
FILLR PUBLIC SIMPLE PROCEDURE
COMPMAXIMS ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
CREATE2 (INTEGER LB1, UB1, LB2, UB2) ;
CNTRS PUBLIC PROCEDURE
CRECOUNTER (INTEGER INLINE, PFROM, PTO, PBY, PIN; STRING
PPRINTING; INTEGER USYMB) ;
CTRLC PUBLIC SIMPLE PROCEDURE
CTRLC! ;
CNTRS PRIVATE SIMPLE STRING PROCEDURE
CVALF (INTEGER ALFABET, VAL) ;
IFK TENEX THENK
FILES PRIVATE SIMPLE STRING PROCEDURE
CVFIL (STRING FILENAME; REFERENCE STRING EXT, PPN) ;
ENDC
IFK CMUVER THENK
FILES PRIVATE SIMPLE STRING PROCEDURE
CVPPN (INTEGER VALUE) ;
ENDC
COLMS PUBLIC SIMPLE PROCEDURE
DAPART ;
AREAS PUBLIC RECURSIVE PROCEDURE
DAREA (BOOLEAN TITAREA) ;
DATUM PUBLIC SIMPLE PROCEDURE
DATUM! ;
PAGES PUBLIC RECURSIVE PROCEDURE
DBLANKPAGE ;
PASTE PUBLIC RECURSIVE PROCEDURE
DBREAK ;
USERS PUBLIC SIMPLE PROCEDURE
DBURP ;
AREAS PUBLIC RECURSIVE PROCEDURE
DCLOSE ;
COMMD PRIVATE SIMPLE PROCEDURE
DCOMMANDCHARACTER ;
ALGOL PUBLIC RECURSIVE PROCEDURE
DCONDITIONAL ;
CNTRS PUBLIC SIMPLE PROCEDURE
DCOUNT ;
FONTS PUBLIC SIMPLE PROCEDURE
DDEVICE ;
TEMPL PUBLIC SIMPLE PROCEDURE
DDONE (BOOLEAN RETURNS) ;
TOKEN PUBLIC SIMPLE INTEGER PROCEDURE
DECLARE (INTEGER LOC, NEWTYPE) ;
TEMPL PUBLIC SIMPLE STRING PROCEDURE
DEFN (BOOLEAN SUBSTVARIABLES,FORFILE; INTEGER ARGS,
IBASE) ;
FONTS PUBLIC SIMPLE PROCEDURE
DFONT (BOOLEAN SELECT) ;
PAGES PUBLIC RECURSIVE PROCEDURE
DFRAME (BOOLEAN BOXFRM) ;
VERTI PUBLIC SIMPLE BOOLEAN PROCEDURE
DIMENSIONED (INTEGER DEFAULT; REFERENCE INTEGER K) ;
QUADS PUBLIC SIMPLE PROCEDURE
DINDENT ;
PORTS PUBLIC SIMPLE PROCEDURE
DINSERT ;
TOKEN PUBLIC SIMPLE PROCEDURE
DISDECLARE (INTEGER SYMB, OLDTYPE, OLDIX) ;
TEMPL PUBLIC SIMPLE PROCEDURE
DMACRO (INTEGER ODDONE) ;
COLMS PUBLIC SIMPLE PROCEDURE
DMARGINS (BOOLEAN INWARD) ;
CNTRS PUBLIC RECURSIVE PROCEDURE
DNEXT ;
FONTS PUBLIC SIMPLE PROCEDURE
DPICHAR ;
PORTS PUBLIC SIMPLE PROCEDURE
DPORTION ;
VERTI PUBLIC SIMPLE PROCEDURE
DPREFACE ;
USERS PUBLIC SIMPLE PROCEDURE
DPUB!DEBUG ;
PORTS PUBLIC SIMPLE PROCEDURE
DRECEIVE ;
TEMPL PUBLIC SIMPLE PROCEDURE
DREPEAT ;
SORCE PUBLIC SIMPLE PROCEDURE
DREQUIRE ;
RESPS PUBLIC SIMPLE PROCEDURE
DRESPONSE (INTEGER COMDWD) ;
PORTS PUBLIC SIMPLE PROCEDURE
DSEND ;
VERTI PUBLIC RECURSIVE PROCEDURE
DSKIP (BOOLEAN GRPSKIP) ;
CTRLC PUBLIC SIMPLE PROCEDURE
DSNEAK ;
VERTI PUBLIC SIMPLE PROCEDURE
DSPACING ;
QUADS PUBLIC SIMPLE PROCEDURE
DSUPERIMPOSE ;
QUADS PUBLIC SIMPLE PROCEDURE
DTABS ;
CTRLC PUBLIC SIMPLE PROCEDURE
DTURN (BOOLEAN TURNON) ;
ERROR PUBLIC SIMPLE PROCEDURE
DUSERERR ;
VARBL PUBLIC SIMPLE PROCEDURE
DVARIABLE ;
ALGOL PUBLIC RECURSIVE STRING PROCEDURE
E (STRING DEFAULT, STOPWORD) ;
ERROR PUBLIC SIMPLE STRING PROCEDURE
EARLYWARNING (STRING MESSG) ;
FILLR PUBLIC RECURSIVE PROCEDURE
EMIT (STRING CHARS) ;
FILLR PUBLIC RECURSIVE PROCEDURE
EMITPIECE (STRING CHARS; INTEGER NCHARS, XCHARL) ;
ALGOL PRIVATE SIMPLE BOOLEAN PROCEDURE
EMPTYCHUNK ;
FILLR PUBLIC SIMPLE PROCEDURE
EMSPACES (INTEGER N) ;
BLOCK PUBLIC SIMPLE PROCEDURE
ENDANY (BOOLEAN CHECK) ;
BLOCK PUBLIC RECURSIVE PROCEDURE
ENDBEGIN ;
BLOCK PUBLIC RECURSIVE BOOLEAN PROCEDURE
ENDBLOCK ;
CTRLC PRIVATE SIMPLE BOOLEAN PROCEDURE
ENDOFSEGMENT ;
BLOCK PUBLIC RECURSIVE PROCEDURE
ENDONCE ;
BLOCK PUBLIC RECURSIVE PROCEDURE
ENDRESP ;
BLOCK PUBLIC RECURSIVE PROCEDURE
ENDSTART ;
PASTE PUBLIC SIMPLE STRING PROCEDURE
ENOUGH (STRING STR ; INTEGER WID, F) ;
TOKEN PRIVATE PROCEDURE
ENTERSYM (STRING WORD; INTEGER VAL) ;
ERROR PUBLIC SIMPLE STRING PROCEDURE
ERRLINE ;
ERROR PUBLIC SIMPLE PROCEDURE
ERROR! ;
VARBL PUBLIC SIMPLE STRING PROCEDURE
EVALV (STRING THISWD ; INTEGER IX, TYP) ;
TOKEN PUBLIC SIMPLE PROCEDURE
FAMILYHAS (INTEGER FAMNUM; STRING MEMBERS) ;
FILES PUBLIC SIMPLE PROCEDURE
FILES! ;
FILLR PUBLIC SIMPLE PROCEDURE
FILLR! ;
CTRLC PRIVATE INTEGER PROCEDURE
FIND!CHR (INTEGER CHR) ;
PASTE PUBLIC RECURSIVE INTEGER PROCEDURE
FIND!ROOM (INTEGER SOURCE, EXTRA, FROMCOL, FROMLINE,
MORECOMING) ;
RESPS PUBLIC SIMPLE BOOLEAN PROCEDURE
FINDINSET (INTEGER HM) ;
RESPS PUBLIC SIMPLE INTEGER PROCEDURE
FINDSIGNAL (INTEGER SIGASC) ;
RESPS PUBLIC SIMPLE INTEGER PROCEDURE
FINDTRAN (INTEGER UASYMB, VARI) ;
DATUM PUBLIC SIMPLE PROCEDURE
FINIDATUM ;
FILES PUBLIC SIMPLE PROCEDURE
FINIFILES ;
PAGES PUBLIC SIMPLE PROCEDURE
FINIPAGES ;
XREFS PUBLIC SIMPLE PROCEDURE
FINIXREFS ;
PAGES PUBLIC PROCEDURE
FINPAGE ;
PORTS PUBLIC SIMPLE PROCEDURE
FINPORTION ;
PAGES PUBLIC SIMPLE PROCEDURE
FIXFRAME (INTEGER FRIDA) ;
FONTS PUBLIC SIMPLE STRING PROCEDURE
FONTEQUIV (STRING ABBREV) ;
FONTS PUBLIC SIMPLE PROCEDURE
FONTS! ;
DATUM PUBLIC SIMPLE PROCEDURE
GOAWAY (INTEGER I) ;
DATUM PUBLIC SIMPLE PROCEDURE
GROW (REFERENCE INTEGER ARRAY ARR; REFERENCE INTEGER
IDA,WDS; INTEGER EXTRA; STRING WHY) ;
AREAS PUBLIC SIMPLE PROCEDURE
GROWAA (INTEGER EXTRA) ;
SORCE PUBLIC SIMPLE PROCEDURE
GROWNESTS ;
PAGES PUBLIC SIMPLE PROCEDURE
GROWOWLS (INTEGER EXTRA) ;
ERROR PUBLIC SIMPLE PROCEDURE
IMPOSSIBLE (STRING WHERE) ;
IFK TENEX THENK
ERROR PRIVATE SIMPLE STRING PROCEDURE
INCHWL ;
ENDC
IFK TENEX THENK
USERS PRIVATE SIMPLE INTEGER PROCEDURE
ININTEGER (INTEGER NUMBER) ;
ENDC
RUNP2 PUBLIC SIMPLE PROCEDURE
INTERMEDIATEFILES ;
XREFS PUBLIC SIMPLE BOOLEAN PROCEDURE
LABELDEF ;
XREFS PUBLIC SIMPLE STRING PROCEDURE
LABELREF (INTEGER USYMB, LEN) ;
PASTE PUBLIC SIMPLE INTEGER PROCEDURE
LINESLEFT ;
PORTS PRIVATE SIMPLE INTEGER PROCEDURE
LOG2 (INTEGER BINARY) ;
TOKEN PRIVATE INTEGER PROCEDURE
LOOKSYM (STRING A) ;
AREAS PUBLIC SIMPLE PROCEDURE
MAKEAREA (INTEGER ITSIX) ;
PAGES PUBLIC SIMPLE PROCEDURE
MAKEPAGE (INTEGER HIGH, WIDE) ;
ALGOL PUBLIC SIMPLE PROCEDURE
MANUSCRIPT ;
FONTS PUBLIC SIMPLE STRING PROCEDURE
MASH (STRING S) ;
COLMS PUBLIC RECURSIVE BOOLEAN PROCEDURE
MOVEGROUP (BOOLEAN OFFPAGE ; INTEGER TOCOL, TOLINE, EXTRA) ;
PASTE PUBLIC SIMPLE INTEGER PROCEDURE
NEWBLANK (INTEGER MOLE) ;
PASTE PUBLIC SIMPLE INTEGER PROCEDURE
NEWNEWBLANK (INTEGER NMOLE) ;
CNTRS PUBLIC RECURSIVE PROCEDURE
NEXTCOUNTER (INTEGER USYMB, UIX) ;
PAGES PUBLIC SIMPLE PROCEDURE
NEXTPAGE ;
CNTRS PUBLIC SIMPLE INTEGER PROCEDURE
NEXTSTATEMENT ;
ALGOL PRIVATE SIMPLE BOOLEAN PROCEDURE
NONSENSE (BOOLEAN VALID) ;
PORTS PUBLIC SIMPLE PROCEDURE
NOPORTION ;
ERROR PRIVATE SIMPLE INTEGER PROCEDURE
NREPORT (INTEGER LOC; STRING MESG, RSP) ;
FILLR PUBLIC SIMPLE PROCEDURE
OKCR (BOOLEAN EVEN!IN!SUPERSUBSCRIPT) ;
FILLR PRIVATE SIMPLE PROCEDURE
OKSP (BOOLEAN EVEN!BEFORE!LMARG) ;
AREAS PUBLIC RECURSIVE PROCEDURE
OPENAREA (INTEGER ITSIX) ;
PAGES PUBLIC SIMPLE PROCEDURE
OPENFRAME ;
PAGES PUBLIC SIMPLE PROCEDURE
OPENPAGE ;
FILES PUBLIC INTEGER PROCEDURE
OPENTOREAD (INTEGER MODE ; STRING FILEKIND ; REFERENCE STRING
FILENAME; IFC TENEX THENC STRING ELSEC INTEGER ENDC
EXTDEFAULT, PPNDEFAULT) ;
PASTE PRIVATE SIMPLE INTEGER PROCEDURE
OWLOUT (STRING C1,C2,C3) ;
PASTE PRIVATE SIMPLE PROCEDURE
OWLPLACE (INTEGER OWLOUTVALUE, MILLLEAD) ;
PAGES PUBLIC SIMPLE PROCEDURE
PAGES! ;
COMMD PUBLIC RECURSIVE PROCEDURE
PARAMS (INTEGER MOST; STRING ARRAY PRE,PAR,POST) ;
TOKEN PUBLIC RECURSIVE STRING PROCEDURE
PASS ;
PASTE PUBLIC SIMPLE PROCEDURE
PASTE! ;
FONTS PUBLIC SIMPLE INTEGER PROCEDURE
PERUSEFONT (INTEGER WHICH, CHAN) ;
FILLR PUBLIC RECURSIVE PROCEDURE
PGPHSTART ;
FONTS PUBLIC SIMPLE STRING PROCEDURE
PICKFONT (INTEGER F) ;
AREAS PUBLIC SIMPLE PROCEDURE
PLACE (INTEGER NEWAREAIX) ;
PASTE PUBLIC RECURSIVE PROCEDURE
PLACELINE (INTEGER CHARS,POSN,XPOSN,FAKE,
ABOVE,BELOW,LEADB,MLEADB,FIRSTLBL,
JUSTIFY,MORECOMING) ;
PORTS PUBLIC SIMPLE PROCEDURE
PORTS! ;
TEMPL PUBLIC RECURSIVE STRING PROCEDURE
PROCSTATEMENT ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
PUSHI (INTEGER WDS, TYP) ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
PUSHS (INTEGER WDS; STRING FIRST) ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
PUTI (INTEGER WDS, FIRST) ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
PUTS (STRING VAL) ;
QUADS PUBLIC SIMPLE PROCEDURE
QUADS! ;
PORTS PRIVATE PROCEDURE
QUICKERSORT (INTEGER J, BASE) ;
SORCE PUBLIC SIMPLE STRING PROCEDURE
RD (INTEGER BRKTBL) ;
TOKEN PUBLIC SIMPLE PROCEDURE
RDENTITY ;
FONTS PUBLIC SIMPLE PROCEDURE
READFONT (INTEGER WHICH; STRING FILENAME, BFILENAME) ;
PORTS PUBLIC SIMPLE PROCEDURE
RECEIVE (INTEGER PORTIX; STRING ALPHABETIZE) ;
AREAS PUBLIC SIMPLE PROCEDURE
REMNULLS ;
ERROR PUBLIC SIMPLE INTEGER PROCEDURE
REPORT (INTEGER LOC; STRING MESG, RSP) ;
RESPS PUBLIC RECURSIVE PROCEDURE
RESPOND (INTEGER IX) ;
RESPS PUBLIC SIMPLE PROCEDURE
RESPS! ;
FONTS PUBLIC SIMPLE INTEGER PROCEDURE
RFONT (INTEGER F) ;
IFK NOT TENEX THENK
USERS PUBLIC SIMPLE PROCEDURE
RPGSTART ;
ENDC
IFK CMUVER THENK
USERS PUBLIC SIMPLE PROCEDURE
RUNLIBPROG (STRING FILENAME) ;
ENDC
RUNP2 PUBLIC PROCEDURE
RUNPASS2 ;
DATUM PUBLIC INTEGER PROCEDURE
SBIGGER (INTEGER PTR,HM) ;
CTRLC PUBLIC RECURSIVE PROCEDURE
SCANTEXT ;
IFK TENEX THENK
FILES PRIVATE STRING PROCEDURE
SCANTO (STRING BRKS; REFERENCE STRING SCANNEE; BOOLEAN
INCLUDE) ;
ENDC
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
SCREATE (INTEGER LB1, UB1) ;
QUADS PUBLIC SIMPLE PROCEDURE
SCRIPT (INTEGER ARROW) ;
FONTS PUBLIC SIMPLE PROCEDURE
SELECTFONT (INTEGER WHICH) ;
PORTS PUBLIC SIMPLE PROCEDURE
SEND (INTEGER PORTIX; STRING MESSG) ;
FONTS PUBLIC SIMPLE PROCEDURE
SETDEVICEPARAMETERS (INTEGER DEVICE) ;
TOKEN PRIVATE PROCEDURE
SETSYM ;
IFK TENEX THENK
FILES PUBLIC SIMPLE PROCEDURE
SFBSZ (INTEGER CHAN, SIZE) ;
ENDC
DATUM PUBLIC SIMPLE PROCEDURE
SGROW (REFERENCE STRING ARRAY ARR; REFERENCE INTEGER
IDA,WDS ; INTEGER EXTRA; STRING WHY) ;
RESPS PUBLIC SIMPLE BOOLEAN PROCEDURE
SIGNA (INTEGER SIGCH1) ;
TOKEN PUBLIC SIMPLE BOOLEAN PROCEDURE
SIMLOOK (STRING NAME) ;
TOKEN PUBLIC SIMPLE INTEGER PROCEDURE
SIMNUM (STRING NAME) ;
COMMD PUBLIC RECURSIVE STRING PROCEDURE
SIMPAR ;
VERTI PUBLIC RECURSIVE PROCEDURE
SKIPLINES (INTEGER HMLINES) ;
PASTE PUBLIC SIMPLE PROCEDURE
SNEAKLINE (STRING S) ;
ERROR PUBLIC SIMPLE STRING PROCEDURE
SOMEINPUT ;
SORCE PUBLIC SIMPLE PROCEDURE
SORCE! ;
FILLR PUBLIC SIMPLE STRING PROCEDURE
SPS (INTEGER N) ;
IFK NOT TENEX THENK
USERS PUBLIC SIMPLE PROCEDURE
SSTART ;
ENDC
ALGOL PUBLIC RECURSIVE BOOLEAN PROCEDURE
STATEMENT ;
PORTS PUBLIC SIMPLE BOOLEAN PROCEDURE
STRLSS (INTEGER XI, YI) ;
IFK TENEX THENK
USERS PRIVATE SIMPLE BOOLEAN PROCEDURE
SUBCOMMAND (INTEGER NUMBER) ;
ENDC
USERS PRIVATE SIMPLE STRING PROCEDURE
SUBST (STRING STR, OLDS, NEWFIRST, NEWREST) ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
SWHATIS (STRING ARRAY A) ;
SORCE PUBLIC SIMPLE PROCEDURE
SWICH (STRING NEWINPUTSTR; INTEGER NEWINPUTCHAN, ARGS) ;
SORCE PUBLIC SIMPLE STRING PROCEDURE
SWICHBACK ;
SORCE PUBLIC SIMPLE PROCEDURE
SWICHF (STRING FILENAME) ;
SORCE PRIVATE SIMPLE PROCEDURE
SWICHFILE (STRING FILENAME ; INTEGER CHAN) ;
FONTS PUBLIC SIMPLE PROCEDURE
SWITCHFONT (INTEGER WHICH) ;
TOKEN PUBLIC SIMPLE BOOLEAN PROCEDURE
SYMLOOK (STRING NAME) ;
TOKEN PUBLIC SIMPLE INTEGER PROCEDURE
SYMNUM (STRING NAME) ;
QUADS PUBLIC RECURSIVE PROCEDURE
TABTO (INTEGER POSNO) ;
TEMPL PUBLIC SIMPLE PROCEDURE
TEMPL! ;
IFK TENEX THENK
USERS PUBLIC SIMPLE PROCEDURE
TENEXSTART ;
ENDC
FILLR PUBLIC RECURSIVE BOOLEAN PROCEDURE
TEXTLINE ;
FILLR PRIVATE RECURSIVE PROCEDURE
TEXTSEGMENT ;
COLMS PUBLIC RECURSIVE PROCEDURE
TOCOLUMN (INTEGER COLNO) ;
BLOCK PUBLIC RECURSIVE PROCEDURE
TOEND ;
TOKEN PUBLIC SIMPLE PROCEDURE
TOKEN! ;
VERTI PUBLIC RECURSIVE PROCEDURE
TOLINE (INTEGER LINENO) ;
PASTE PRIVATE SIMPLE INTEGER PROCEDURE
TOPMOST (INTEGER COLNO, LINO) ;
FONTS PUBLIC SIMPLE STRING PROCEDURE
TRUNCATE (STRING STR; INTEGER LEN) ;
CTRLC PUBLIC SIMPLE PROCEDURE
TURN (INTEGER CHR,FUN,ONOFF) ;
ERROR PUBLIC STRING PROCEDURE
TYPEIN ;
IFK TENEX THENK
FILES PUBLIC SIMPLE STRING PROCEDURE
UNCVFIL (INTEGER CHAN; STRING NAME, EXT, PPN) ;
ENDC
IFK NOT TENEX THENK
FILES PUBLIC SIMPLE STRING PROCEDURE
UNCVFIL (INTEGER CHAN, NAME, EXT, PPN) ;
ENDC
QUADS PUBLIC SIMPLE PROCEDURE
UNSCRIPT (INTEGER ARROW) ;
USERS PUBLIC SIMPLE PROCEDURE
USERS! ;
VARBL PUBLIC SIMPLE PROCEDURE
VARASSIGN (STRING NAME, VAL) ;
VARBL PUBLIC SIMPLE PROCEDURE
VARBL! ;
VARBL PUBLIC SIMPLE STRING PROCEDURE
VASSIGN (INTEGER VSYMB, VTYPE, VIX; STRING VAL) ;
VERTI PUBLIC SIMPLE PROCEDURE
VERTI! ;
VARBL PUBLIC SIMPLE STRING PROCEDURE
VEVAL ;
TEMPL PUBLIC SIMPLE PROCEDURE
WARNLONG (STRING SEGM, MESG) ;
ERROR PUBLIC SIMPLE STRING PROCEDURE
WARNN (REFERENCE BOOLEAN QUIETER; STRING
SHORT!VERSION,LONG!VERSION) ;
DATUM PUBLIC SIMPLE INTEGER PROCEDURE
WHATIS (INTEGER ARRAY A) ;
FILES PUBLIC SIMPLE INTEGER PROCEDURE
WRITEON (BOOLEAN BINARY; STRING FILENAME) ;
FONTS PUBLIC SIMPLE INTEGER PROCEDURE
XLENGTH (STRING CHARS) ;
IFK TENEX THENK
FILES PUBLIC SIMPLE BOOLEAN PROCEDURE
XLOOKUP (INTEGER CHAN; STRING NAME, EXT; INTEGER JUNK;
STRING PPN) ;
ENDC
IFK NOT TENEX THENK
FILES PUBLIC SIMPLE BOOLEAN PROCEDURE
XLOOKUP (INTEGER CHAN, NAME, EXT, JUNK, PPN) ;
ENDC
XREFS PUBLIC SIMPLE PROCEDURE
XREFS! ;
FONTS PUBLIC SIMPLE INTEGER PROCEDURE
XSPLEN (INTEGER N) ;
DATUM PUBLIC SIMPLE PROCEDURE
ZEROSTRINGS (INTEGER STRS; REFERENCE STRING LOCN) ;
DATUM PUBLIC SIMPLE PROCEDURE
ZEROWORDS (INTEGER WDS; REFERENCE INTEGER LOCN) ;
FINISHED